home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8603.d64
/
shape 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
30 lines
100 REM SHAPE 64 VON R. LOEWENSTEIN
101 REM ZEISIGWEG 42
102 REM 8301 OBERAHRAIN
103 REM TEL:08703/2088
104 :
120 POKE53270,4:X=49152:FORA=0TO368:READB:POKEX+A,B:C=C+B:NEXT
125 IFC<>43521THENSYS58784:PRINT"FEHLER IN DATAS!":END
130 SYS58784:SYS49391:PRINT"[147] **** C-64 SHAPE SYSTEM V1.0 ****"
140 PRINT" 64K RAM SYSTEM 40130 BASIC BYTES FREE"
150 NEW
32000 DATA32,253,174,32,235,183,134,4,165,20,166,21,133,2,134,3,32,253,174,32
32001 DATA235,183,165,20,133,5,138,240,32,201,1,240,14,162,7,189,89,192,157,146
32002 DATA192,202,16,247,76,113,192,162,7,189,97,192,157,146,192,202,16,247,76
32003 DATA113,192,32,253,174,32,235,183,142,110,192,165,20,141,106,192,162,7
32004 DATA189,105,192,157,146,192,202,16,247,76,113,192,177,2,145,6,177,8,145
32005 DATA10,177,6,145,2,177,10,145,8,169,255,145,2,169,0,145,8,169,54,133,1
32006 DATA169,0,162,160,133,6,134,7,162,176,133,10,134,11,166,2,165,3,24,105
32007 DATA20,133,9,134,8,166,5,160,0,169,255,145,2,169,0,145,8,200,196,4,144
32008 DATA243,165,6,24,101,4,133,6,133,10,144,4,230,7,230,11,165,2,24,105,40
32009 DATA133,2,133,8,144,4,230,3,230,9,202,208,208,169,55,133,1,96,234,169,51
32010 DATA133,1,169,0,162,200,160,208,133,2,134,3,133,4,132,5,162,8,168,177,4
32011 DATA145,2,136,208,249,230,3,230,5,202,208,242,169,55,133,1,88,96,120,169
32012 DATA208,141,207,192,32,197,192,169,0,141,0,221,169,18,141,24,208,169,196
32013 DATA141,136,2,169,50,162,193,141,20,3,142,21,3,169,0,141,32,208,141,33
32014 DATA208,169,14,141,134,2,169,60,162,3,133,43,134,44,169,0,141,60,3,169
32015 DATA8,32,210,255,88,96,173,141,2,201,3,208,24,169,18,141,141,2,141,142
32016 DATA2,230,255,165,255,41,1,208,11,169,216,141,207,192,32,197,192,76,49
32017 DATA234,169,208,141,207,192,32,197,192,76,49,234,120,169,208,141,207,192
32018 DATA76,198,192,120,169,216,141,207,192,76,198,192